home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / funk.schar l4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  225b  |  11 lines
  1. 10 REM ANA 2 S. 174 BILD 203 C
  2. 20 :
  3. 30 SYS 37173,"-1/(X*X)",-5,5,-7,1 : REM A=0
  4. 40 FOR I=1 TO 8
  5. 50 READ A : A=-A : SYS 37173,"(A*X*X-1)/(X*X-A)"
  6. 60 NEXT I
  7. 70 POKE198,0:WAIT198,1:GETZ$
  8. 80 SYS 40211 : END
  9. 90 :
  10. 100 DATA 0.2,0.5,0.75,1,1.25,2,4,16
  11.